home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / create4a / frmmain.frm (.txt) next >
Visual Basic Form  |  1999-10-12  |  34KB  |  882 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00000000&
  4.    Caption         =   "Tic Tac Toe Multiplayer"
  5.    ClientHeight    =   5385
  6.    ClientLeft      =   5145
  7.    ClientTop       =   2715
  8.    ClientWidth     =   5295
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5385
  12.    ScaleWidth      =   5295
  13.    StartUpPosition =   2  'Bildschirmmitte
  14.    Begin VB.CommandButton Command3 
  15.       Caption         =   "Exit"
  16.       BeginProperty Font 
  17.          Name            =   "MS Sans Serif"
  18.          Size            =   8.25
  19.          Charset         =   0
  20.          Weight          =   700
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   495
  26.       Left            =   2760
  27.       TabIndex        =   11
  28.       Top             =   4560
  29.       Width           =   1335
  30.    End
  31.    Begin VB.CommandButton Command1 
  32.       Caption         =   "Play again!!!"
  33.       BeginProperty Font 
  34.          Name            =   "MS Sans Serif"
  35.          Size            =   8.25
  36.          Charset         =   0
  37.          Weight          =   700
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       Height          =   495
  43.       Left            =   1080
  44.       TabIndex        =   10
  45.       Top             =   4560
  46.       Width           =   1335
  47.    End
  48.    Begin VB.TextBox Text9 
  49.       Alignment       =   2  'Zentriert
  50.       BeginProperty Font 
  51.          Name            =   "Arial"
  52.          Size            =   24
  53.          Charset         =   0
  54.          Weight          =   700
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   855
  60.       Left            =   3240
  61.       TabIndex        =   8
  62.       Top             =   3240
  63.       Width           =   855
  64.    End
  65.    Begin VB.TextBox Text8 
  66.       Alignment       =   2  'Zentriert
  67.       BeginProperty Font 
  68.          Name            =   "Arial"
  69.          Size            =   24
  70.          Charset         =   0
  71.          Weight          =   700
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   855
  77.       Left            =   2160
  78.       TabIndex        =   7
  79.       Top             =   3240
  80.       Width           =   855
  81.    End
  82.    Begin VB.TextBox Text7 
  83.       Alignment       =   2  'Zentriert
  84.       BeginProperty Font 
  85.          Name            =   "Arial"
  86.          Size            =   24
  87.          Charset         =   0
  88.          Weight          =   700
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       Height          =   855
  94.       Left            =   1080
  95.       TabIndex        =   6
  96.       Top             =   3240
  97.       Width           =   855
  98.    End
  99.    Begin VB.TextBox Text6 
  100.       Alignment       =   2  'Zentriert
  101.       BeginProperty Font 
  102.          Name            =   "Arial"
  103.          Size            =   24
  104.          Charset         =   0
  105.          Weight          =   700
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       Height          =   855
  111.       Left            =   3240
  112.       TabIndex        =   5
  113.       Top             =   2160
  114.       Width           =   855
  115.    End
  116.    Begin VB.TextBox Text5 
  117.       Alignment       =   2  'Zentriert
  118.       BeginProperty Font 
  119.          Name            =   "Arial"
  120.          Size            =   24
  121.          Charset         =   0
  122.          Weight          =   700
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       Height          =   855
  128.       Left            =   2160
  129.       TabIndex        =   4
  130.       Top             =   2160
  131.       Width           =   855
  132.    End
  133.    Begin VB.TextBox Text4 
  134.       Alignment       =   2  'Zentriert
  135.       BeginProperty Font 
  136.          Name            =   "Arial"
  137.          Size            =   24
  138.          Charset         =   0
  139.          Weight          =   700
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   855
  145.       Left            =   1080
  146.       TabIndex        =   3
  147.       Top             =   2160
  148.       Width           =   855
  149.    End
  150.    Begin VB.TextBox Text3 
  151.       Alignment       =   2  'Zentriert
  152.       BeginProperty Font 
  153.          Name            =   "Arial"
  154.          Size            =   24
  155.          Charset         =   0
  156.          Weight          =   700
  157.          Underline       =   0   'False
  158.          Italic          =   0   'False
  159.          Strikethrough   =   0   'False
  160.       EndProperty
  161.       Height          =   855
  162.       Left            =   3240
  163.       TabIndex        =   2
  164.       Top             =   1080
  165.       Width           =   855
  166.    End
  167.    Begin VB.TextBox Text2 
  168.       Alignment       =   2  'Zentriert
  169.       BeginProperty Font 
  170.          Name            =   "Arial"
  171.          Size            =   24
  172.          Charset         =   0
  173.          Weight          =   700
  174.          Underline       =   0   'False
  175.          Italic          =   0   'False
  176.          Strikethrough   =   0   'False
  177.       EndProperty
  178.       Height          =   855
  179.       Left            =   2160
  180.       TabIndex        =   1
  181.       Top             =   1080
  182.       Width           =   855
  183.    End
  184.    Begin VB.TextBox Text1 
  185.       Alignment       =   2  'Zentriert
  186.       BeginProperty Font 
  187.          Name            =   "Arial"
  188.          Size            =   24
  189.          Charset         =   0
  190.          Weight          =   700
  191.          Underline       =   0   'False
  192.          Italic          =   0   'False
  193.          Strikethrough   =   0   'False
  194.       EndProperty
  195.       ForeColor       =   &H00000000&
  196.       Height          =   855
  197.       Left            =   1080
  198.       TabIndex        =   0
  199.       Top             =   1080
  200.       Width           =   855
  201.    End
  202.    Begin VB.Label Label1 
  203.       Alignment       =   2  'Zentriert
  204.       BackStyle       =   0  'Transparent
  205.       Caption         =   "Tic Tac Toe Multiplayer"
  206.       BeginProperty Font 
  207.          Name            =   "MS Sans Serif"
  208.          Size            =   24
  209.          Charset         =   0
  210.          Weight          =   400
  211.          Underline       =   0   'False
  212.          Italic          =   0   'False
  213.          Strikethrough   =   0   'False
  214.       EndProperty
  215.       ForeColor       =   &H00FF0000&
  216.       Height          =   615
  217.       Left            =   120
  218.       TabIndex        =   9
  219.       Top             =   120
  220.       Width           =   5055
  221.    End
  222.    Begin VB.Shape Shape2 
  223.       FillColor       =   &H00FF0000&
  224.       FillStyle       =   0  'Ausgef
  225.       Height          =   255
  226.       Index           =   1
  227.       Left            =   1080
  228.       Top             =   3000
  229.       Width           =   3015
  230.    End
  231.    Begin VB.Shape Shape2 
  232.       FillColor       =   &H00FF0000&
  233.       FillStyle       =   0  'Ausgef
  234.       Height          =   255
  235.       Index           =   0
  236.       Left            =   1080
  237.       Top             =   1920
  238.       Width           =   3015
  239.    End
  240.    Begin VB.Shape Shape1 
  241.       FillColor       =   &H00FF0000&
  242.       FillStyle       =   0  'Ausgef
  243.       Height          =   3015
  244.       Index           =   1
  245.       Left            =   3000
  246.       Top             =   1080
  247.       Width           =   255
  248.    End
  249.    Begin VB.Shape Shape1 
  250.       FillColor       =   &H00FF0000&
  251.       FillStyle       =   0  'Ausgef
  252.       Height          =   3015
  253.       Index           =   0
  254.       Left            =   1920
  255.       Top             =   1080
  256.       Width           =   255
  257.    End
  258. Attribute VB_Name = "frmMain"
  259. Attribute VB_GlobalNameSpace = False
  260. Attribute VB_Creatable = False
  261. Attribute VB_PredeclaredId = True
  262. Attribute VB_Exposed = False
  263. Private Sub Command1_Click()
  264. Text1.Text = ""
  265. Text2.Text = ""
  266. Text3.Text = ""
  267. Text4.Text = ""
  268. Text5.Text = ""
  269. Text6.Text = ""
  270. Text7.Tex